#!/usr/bin/perl
#save_conf.cgi

require './mdmhistory-lib.pl';

&ReadParse();
#&header($text{'log_properties'},undef,"index",undef,0);
&foreign_require("naslog","naslog-lib.pl");
my $name = $in{'name'};
my $size = $in{'size'}*1024;
my $max = $in{'opt'};
if($max == 0 ) {
	$opt='truncate';
} else {
	$opt='archive';
}
&foreign_call("naslog","save_conf_data",$name,$size,$opt,$max);
&redirect();